home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWAPCP02.ZIP
/
ARCHIE
/
ARCHIE.PPD
< prev
next >
Wrap
Text File
|
1995-11-15
|
4KB
|
154 lines
;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00 (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.10 detected.
;
;Source Code:
;------------------------------------------------------------------------------
STRING VAR001
STRING VAR002
STRING VAR003
STRING VAR004
STRING VAR005
INTEGER VAR006
BOOLEAN VAR007
BOOLEAN VAR008
DATE VAR009
STRING VAR010
STRING VAR011
STRING BBSNAME
STRING SYSNAME
INTEGER VAR012
BOOLEAN VAR013
BOOLEAN VAR014
BOOLEAN VAR015
;------------------------------------------------------------------------------
CLS
LET VAR012=0
LET VAR013=0
LET VAR014=0
FOPEN 1,PPEPATH()+"ARCHIE.CFG",O_RD,S_DN
FGET 1,VAR006
FGET 1,BBSNAME
FGET 1,SYSNAME
FCLOSE 1
PRINTLN "@X0FARCHIE by Email - Version .20b"
PRINTLN "Registered to: "+BBSNAME
PRINTLN "Sysop: "+SYSNAME
PRINTLN
WAIT
PRINTLN
PRINTLN "@X0FPlease enter the following information for the filenames you wish to"
PRINTLN "search for.@X07"
:LABEL000
IF (!(!VAR013)) GOTO LABEL004
INPUT "Enter the string to search for",VAR001
IF (!(VAR001="")) GOTO LABEL002
PRINTLN
PRINTLN "Please enter a search string!"
PRINTLN
LET VAR012=VAR012+1
IF (!(VAR012>=4)) GOTO LABEL001
PRINTLN "too many trys - aborting!!!!"
LET VAR013=1
LET VAR014=1
:LABEL001
GOTO LABEL003
:LABEL002
LET VAR013=1
:LABEL003
GOTO LABEL000
:LABEL004
LET VAR011="Y"
IF (!(!VAR014)) GOTO LABEL008
LET VAR015=1
PRINTLN
PRINT "Creating ARCHIE request...."
LET VAR010=PPEPATH()+"ATEMP"+STRING(PCBNODE())+".TMP"
FCREATE 1,VAR010,O_WR,S_DB
LET VAR002=U_NAME()
LET VAR004="archie@archie.rutgers.edu"
LET VAR003=" "
LET VAR005="R"
LET VAR007=0
LET VAR008=1
LET VAR009=DATE()+3
IF (!VAR015) GOTO LABEL005
FPUTLN 1,"set search sub"
GOTO LABEL006
:LABEL005
FPUTLN 1,"set search exact"
:LABEL006
FPUTLN 1,"find ",VAR001
FPUTLN 1,"quit"
FCLOSE 1
PRINTLN "Done!"
LET VAR011="Y"
INPUTYN "Do you want to send this request (Y/N)",VAR011,15
IF (!(VAR011="Y")) GOTO LABEL007
PRINTLN
PRINTLN "Request sent!"
MESSAGE VAR006,VAR004,VAR002,VAR003,VAR005,VAR009,VAR007,VAR008,VAR010
GOTO LABEL008
:LABEL007
PRINTLN
PRINTLN "Request Aborted!"
:LABEL008
PRINTLN
PRINTLN "Returning back to BBS"
PRINTLN
END
;------------------------------------------------------------------------------
;Statements used:
;
; 1 END
; 1 CLS
; 3 WAIT
; 10 GOTO
; 18 LET
; 1 PRINT
; 25 PRINTLN
; 6 IF
; 1 INPUT
; 1 FCREATE
; 1 FOPEN
; 2 FCLOSE
; 1 FGET
; 4 FPUTLN
; 1 INPUTYN
; 1 DELAY
; 1 MESSAGE
;
;Functions used:
;
; 1 *
; 1 /
; 6 +
; 2 =
; 1 >=
; 8 !
; 1 DATE
; 1 U_NAME
; 1 STRING
; 2 PPEPATH
; 1 PCBNODE
;
;------------------------------------------------------------------------------
;Thank you for using PPLD T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------